home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.0 / Video Toaster v4.0.iso / arexx / cg / sizedown.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-16  |  705b  |  33 lines
  1. /* SizeDown.rexx -- Size the selected font down by 5 points. */
  2. /* By Bob Caron © 1994 NewTek, Inc.                          */
  3.  
  4. call addlib(CG_AREXX,0)
  5.  
  6. cfont=get_char(face)
  7. csize=get_font(SIZE)
  8. csize=csize-5
  9.  
  10. if GET_LINE(TYPE)="Box" then call outtahere("You can't run this on boxes!")
  11. if GET_FONT(TYPE)<4 then call outtahere("This can only be used on postscript fonts!!")
  12. if csize<1 then call outtahere("You can't have a font THAT small!")
  13.  
  14. call REQ_BAR("Loading Font...")
  15. call loadfont(cfont,csize)
  16.  
  17. call set_char(face,cfont,csize)
  18.  
  19. call REQ_BAR("ToasterCG")
  20. call REMLIB(CG_AREXX)
  21.  
  22. exit
  23.  
  24. outtahere:
  25.  
  26. parse arg message
  27. call req_tell(message)
  28. call REQ_BAR("ToasterCG")
  29. call REMLIB(CG_AREXX)
  30. exit
  31. return
  32.  
  33.